home *** CD-ROM | disk | FTP | other *** search
/ Chip: Chipnet / CHIPNET Aralık 1997.iso / ftp / fwftp2.exe / FTPWIN.EXE / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Encoding:
Text File  |  1996-07-17  |  17.8 KB  |  563 lines
  1. object Form1: TForm1
  2.   Left = 207
  3.   Top = 106
  4.   Width = 451
  5.   Height = 350
  6.   Caption = 'FreeWay FTP'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   OnClose = FormClose
  13.   OnCreate = FormCreate
  14.   OnResize = FormResize
  15.   PixelsPerInch = 96
  16.   TextHeight = 16
  17.   object DirectoryBMP: TImage
  18.     Left = 208
  19.     Top = 80
  20.     Width = 17
  21.     Height = 9
  22.     Picture.Data = {<image000.bmp>}
  23.     Visible = False
  24.   end
  25.   object FileBMP: TImage
  26.     Left = 208
  27.     Top = 96
  28.     Width = 17
  29.     Height = 9
  30.     Picture.Data = {<image001.bmp>}
  31.     Visible = False
  32.   end
  33.   object Button1: TSpeedButton
  34.     Left = 208
  35.     Top = 144
  36.     Width = 25
  37.     Height = 33
  38.     Glyph.Data = {
  39.       78010000424D7801000000000000760000002800000020000000100000000100
  40.       04000000000000000000120B0000120B00000000000000000000000000000000
  41.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  42.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  43.       3333333333333333333333333333333333333FFF333333333333000333333333
  44.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  45.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  46.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  47.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  48.       33337777773FF733333333333300033333333333337773333333333333333333
  49.       3333333333333333333333333333333333333333333333333333333333333333
  50.       33333333333333333333333333333333333333333333333333330000}
  51.     Layout = blGlyphRight
  52.     NumGlyphs = 2
  53.     OnClick = Button1Click
  54.   end
  55.   object Button2: TSpeedButton
  56.     Left = 208
  57.     Top = 192
  58.     Width = 25
  59.     Height = 33
  60.     Glyph.Data = {
  61.       78010000424D7801000000000000760000002800000020000000100000000100
  62.       04000000000000000000120B0000120B00000000000000000000000000000000
  63.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  64.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  65.       33333333333333333333333333333333333333333333333333FF333333333333
  66.       3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
  67.       E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
  68.       E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
  69.       E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
  70.       000033333373FF77777733333330003333333333333777333333333333333333
  71.       3333333333333333333333333333333333333333333333333333333333333333
  72.       33333333333333333333333333333333333333333333333333330000}
  73.     NumGlyphs = 2
  74.     OnClick = Button2Click
  75.   end
  76.   object Panel1: TPanel
  77.     Left = 0
  78.     Top = 0
  79.     Width = 443
  80.     Height = 57
  81.     Align = alTop
  82.     BevelInner = bvRaised
  83.     BevelOuter = bvLowered
  84.     TabOrder = 0
  85.     object SpeedButton1: TSpeedButton
  86.       Left = 8
  87.       Top = 8
  88.       Width = 40
  89.       Height = 41
  90.       Hint = 'Rename file'
  91.       Caption = 'Rename'
  92.       Font.Color = clBlack
  93.       Font.Height = -9
  94.       Font.Name = 'Small Fonts'
  95.       Font.Style = []
  96.       Glyph.Data = {
  97.         78010000424D7801000000000000760000002800000020000000100000000100
  98.         04000000000000000000120B0000120B00000000000000000000000000000000
  99.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  100.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  101.         555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
  102.         055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
  103.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  104.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  105.         305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
  106.         305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
  107.         30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
  108.         3055577777555557F7F5550005555559995555777555555777550000}
  109.       Layout = blGlyphTop
  110.       NumGlyphs = 2
  111.       ParentFont = False
  112.       ParentShowHint = False
  113.       ShowHint = True
  114.       OnClick = SpeedButton1Click
  115.     end
  116.     object SpeedButton2: TSpeedButton
  117.       Left = 48
  118.       Top = 8
  119.       Width = 40
  120.       Height = 41
  121.       Hint = 'Create directory'
  122.       Caption = 'MkDir'
  123.       Font.Color = clBlack
  124.       Font.Height = -9
  125.       Font.Name = 'Small Fonts'
  126.       Font.Style = []
  127.       Glyph.Data = {
  128.         78010000424D7801000000000000760000002800000020000000100000000100
  129.         04000000000000000000120B0000120B00000000000000000000000000000000
  130.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  131.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  132.         5555555555555555555555555555555555555555555555555555555555555555
  133.         555555555555555555555555555555555555555FFFFFFFFFF555550000000000
  134.         55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
  135.         B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
  136.         000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
  137.         555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
  138.         55555575FFF75555555555700007555555555557777555555555555555555555
  139.         55555555555555555555555555555555555555555555555555550000}
  140.       Layout = blGlyphTop
  141.       NumGlyphs = 2
  142.       ParentFont = False
  143.       ParentShowHint = False
  144.       ShowHint = True
  145.       OnClick = SpeedButton2Click
  146.     end
  147.     object SpeedButton3: TSpeedButton
  148.       Left = 88
  149.       Top = 8
  150.       Width = 40
  151.       Height = 41
  152.       Hint = 'Delete file or directory'
  153.       Caption = 'Delete'
  154.       Font.Color = clBlack
  155.       Font.Height = -9
  156.       Font.Name = 'Small Fonts'
  157.       Font.Style = []
  158.       Glyph.Data = {
  159.         78010000424D7801000000000000760000002800000020000000100000000100
  160.         04000000000000000000120B0000120B00000000000000000000000000000000
  161.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  162.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  163.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  164.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  165.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  166.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  167.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  168.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  169.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  170.         05555777775555557F55550005555555055555777555555575550000}
  171.       Layout = blGlyphTop
  172.       NumGlyphs = 2
  173.       ParentFont = False
  174.       ParentShowHint = False
  175.       ShowHint = True
  176.       OnClick = SpeedButton3Click
  177.     end
  178.     object SpeedButton4: TSpeedButton
  179.       Left = 304
  180.       Top = 8
  181.       Width = 40
  182.       Height = 41
  183.       Hint = 'Abort transfer'
  184.       Caption = 'Abort'
  185.       Enabled = False
  186.       Font.Color = clBlack
  187.       Font.Height = -9
  188.       Font.Name = 'Small Fonts'
  189.       Font.Style = []
  190.       Glyph.Data = {
  191.         76010000424D7601000000000000760000002800000020000000100000000100
  192.         04000000000000010000130B0000130B00000000000000000000000000000000
  193.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  194.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  195.         3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
  196.         33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
  197.         993337777F777F3377F3393999707333993337F77737333337FF993399933333
  198.         399377F3777FF333377F993339903333399377F33737FF33377F993333707333
  199.         399377F333377FF3377F993333101933399377F333777FFF377F993333000993
  200.         399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
  201.         99333773FF777F777733339993707339933333773FF7FFF77333333999999999
  202.         3333333777333777333333333999993333333333377777333333}
  203.       Layout = blGlyphTop
  204.       NumGlyphs = 2
  205.       ParentFont = False
  206.       ParentShowHint = False
  207.       ShowHint = True
  208.       OnClick = SpeedButton4Click
  209.     end
  210.     object SpeedButton5: TSpeedButton
  211.       Left = 128
  212.       Top = 8
  213.       Width = 40
  214.       Height = 41
  215.       Hint = 'Change working directory'
  216.       Caption = 'ChDir'
  217.       Font.Color = clBlack
  218.       Font.Height = -9
  219.       Font.Name = 'Small Fonts'
  220.       Font.Style = []
  221.       Glyph.Data = {
  222.         78010000424D7801000000000000760000002800000020000000100000000100
  223.         04000000000000000000120B0000120B00000000000000000000000000000000
  224.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  225.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  226.         55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
  227.         B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
  228.         B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
  229.         0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
  230.         55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
  231.         55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
  232.         55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
  233.         5555575FFF7555555555570000755555555555777755555555550000}
  234.       Layout = blGlyphTop
  235.       NumGlyphs = 2
  236.       ParentFont = False
  237.       ParentShowHint = False
  238.       ShowHint = True
  239.       OnClick = SpeedButton5Click
  240.     end
  241.     object SpeedButton6: TSpeedButton
  242.       Left = 168
  243.       Top = 8
  244.       Width = 40
  245.       Height = 41
  246.       Hint = 'Refresh directory list'
  247.       Caption = 'Dir list'
  248.       Font.Color = clBlack
  249.       Font.Height = -9
  250.       Font.Name = 'Small Fonts'
  251.       Font.Style = []
  252.       Glyph.Data = {
  253.         78010000424D7801000000000000760000002800000020000000100000000100
  254.         04000000000000000000120B0000120B00000000000000000000000000000000
  255.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  256.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
  257.         333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
  258.         300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
  259.         333337F373F773333333303330033333333337F3377333333333303333333333
  260.         333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
  261.         333337777F337F33333330330BB00333333337F373F773333333303330033333
  262.         333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
  263.         333377777F77377733330BBB0333333333337F337F33333333330BB003333333
  264.         333373F7733333333333300333333333333337733333333333330000}
  265.       Layout = blGlyphTop
  266.       NumGlyphs = 2
  267.       ParentFont = False
  268.       ParentShowHint = False
  269.       ShowHint = True
  270.       OnClick = SpeedButton6Click
  271.     end
  272.     object SpeedButton7: TSpeedButton
  273.       Left = 208
  274.       Top = 8
  275.       Width = 40
  276.       Height = 41
  277.       Hint = 'View text file'
  278.       Caption = 'View'
  279.       Font.Color = clBlack
  280.       Font.Height = -9
  281.       Font.Name = 'Small Fonts'
  282.       Font.Style = []
  283.       Glyph.Data = {
  284.         76010000424D7601000000000000760000002800000020000000100000000100
  285.         04000000000000010000130B0000130B00000000000000000000000000000000
  286.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  287.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  288.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  289.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  290.         07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
  291.         07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
  292.         0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
  293.         33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
  294.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  295.         3BB33773333773333773B333333B3333333B7333333733333337}
  296.       Layout = blGlyphTop
  297.       NumGlyphs = 2
  298.       ParentFont = False
  299.       ParentShowHint = False
  300.       ShowHint = True
  301.       OnClick = SpeedButton7Click
  302.     end
  303.     object SpeedButton8: TSpeedButton
  304.       Left = 264
  305.       Top = 8
  306.       Width = 40
  307.       Height = 41
  308.       Hint = 'Close connection'
  309.       Caption = 'Close'
  310.       Font.Color = clBlack
  311.       Font.Height = -9
  312.       Font.Name = 'Small Fonts'
  313.       Font.Style = []
  314.       Glyph.Data = {
  315.         76010000424D7601000000000000760000002800000020000000100000000100
  316.         04000000000000010000130B0000130B00000000000000000000000000000000
  317.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  318.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  319.         333333333333333333333333333333333333333FFF33FF333FFF339993370733
  320.         999333777FF37FF377733339993000399933333777F777F77733333399970799
  321.         93333333777F7377733333333999399933333333377737773333333333990993
  322.         3333333333737F73333333333331013333333333333777FF3333333333910193
  323.         333333333337773FF3333333399000993333333337377737FF33333399900099
  324.         93333333773777377FF333399930003999333337773777F777FF339993370733
  325.         9993337773337333777333333333333333333333333333333333333333333333
  326.         3333333333333333333333333333333333333333333333333333}
  327.       Layout = blGlyphTop
  328.       NumGlyphs = 2
  329.       ParentFont = False
  330.       ParentShowHint = False
  331.       ShowHint = True
  332.       OnClick = SpeedButton8Click
  333.     end
  334.     object RadioGroup1: TRadioGroup
  335.       Left = 352
  336.       Top = 8
  337.       Width = 81
  338.       Height = 41
  339.       HelpContext = 49
  340.       Caption = 'Mode'
  341.       Columns = 2
  342.       Font.Color = clBlack
  343.       Font.Height = -9
  344.       Font.Name = 'Small Fonts'
  345.       Font.Style = []
  346.       ItemIndex = 0
  347.       Items.Strings = (
  348.         'Bin'
  349.         'Asc')
  350.       ParentFont = False
  351.       TabOrder = 0
  352.     end
  353.   end
  354.   object ComboBox1: TComboBox
  355.     Left = 24
  356.     Top = 72
  357.     Width = 177
  358.     Height = 24
  359.     HelpContext = 50
  360.     ItemHeight = 16
  361.     TabOrder = 1
  362.     OnChange = ComboBox1Change
  363.     OnEnter = ListBox1Enter
  364.   end
  365.   object ComboBox2: TComboBox
  366.     Left = 240
  367.     Top = 72
  368.     Width = 177
  369.     Height = 24
  370.     HelpContext = 50
  371.     ItemHeight = 16
  372.     TabOrder = 2
  373.     OnChange = ComboBox2Change
  374.     OnEnter = ListBox2Enter
  375.   end
  376.   object ListBox1: TListBox
  377.     Left = 24
  378.     Top = 136
  379.     Width = 177
  380.     Height = 105
  381.     HelpContext = 52
  382.     ItemHeight = 16
  383.     Style = lbOwnerDrawFixed
  384.     TabOrder = 3
  385.     OnDblClick = ListBox1DblClick
  386.     OnDrawItem = ListBox1DrawItem
  387.     OnEnter = ListBox1Enter
  388.     OnMeasureItem = ListBox1MeasureItem
  389.   end
  390.   object ListBox2: TListBox
  391.     Left = 240
  392.     Top = 136
  393.     Width = 177
  394.     Height = 105
  395.     HelpContext = 52
  396.     ItemHeight = 16
  397.     Style = lbOwnerDrawFixed
  398.     TabOrder = 4
  399.     OnDblClick = ListBox2DblClick
  400.     OnDrawItem = ListBox2DrawItem
  401.     OnEnter = ListBox2Enter
  402.     OnMeasureItem = ListBox2MeasureItem
  403.   end
  404.   object StatusBar1: TStatusBar
  405.     Left = 0
  406.     Top = 285
  407.     Width = 443
  408.     Height = 19
  409.     Panels = <>
  410.     SimplePanel = True
  411.   end
  412.   object Edit1: TEdit
  413.     Left = 24
  414.     Top = 248
  415.     Width = 177
  416.     Height = 24
  417.     HelpContext = 53
  418.     Color = clBtnFace
  419.     TabOrder = 6
  420.   end
  421.   object Edit2: TEdit
  422.     Left = 240
  423.     Top = 248
  424.     Width = 177
  425.     Height = 24
  426.     HelpContext = 53
  427.     Color = clBtnFace
  428.     TabOrder = 7
  429.   end
  430.   object Edit3: TEdit
  431.     Left = 24
  432.     Top = 104
  433.     Width = 177
  434.     Height = 24
  435.     HelpContext = 51
  436.     Color = clBtnFace
  437.     TabOrder = 8
  438.   end
  439.   object Edit4: TEdit
  440.     Left = 240
  441.     Top = 104
  442.     Width = 177
  443.     Height = 24
  444.     HelpContext = 51
  445.     Color = clBtnFace
  446.     TabOrder = 9
  447.   end
  448.   object MainMenu1: TMainMenu
  449.     Left = 48
  450.     Top = 40
  451.     object Server1: TMenuItem
  452.       Caption = 'Server'
  453.       ShortCut = 0
  454.       object Enabled1: TMenuItem
  455.         Caption = 'Enabled'
  456.         Checked = True
  457.         HelpContext = 7
  458.         ShortCut = 0
  459.         OnClick = Enabled1Click
  460.       end
  461.       object Statistics1: TMenuItem
  462.         Caption = 'Status'
  463.         HelpContext = 56
  464.         ShortCut = 0
  465.         OnClick = Statistics1Click
  466.       end
  467.       object Configure1: TMenuItem
  468.         Caption = 'Configure...'
  469.         ShortCut = 0
  470.         OnClick = Configure1Click
  471.       end
  472.     end
  473.     object Client1: TMenuItem
  474.       Caption = 'Client'
  475.       ShortCut = 0
  476.       object Dialog1: TMenuItem
  477.         Caption = 'Dialog...'
  478.         HelpContext = 57
  479.         ShortCut = 0
  480.         OnClick = Dialog1Click
  481.       end
  482.       object Configure2: TMenuItem
  483.         Caption = 'Configure...'
  484.         ShortCut = 0
  485.         OnClick = Configure2Click
  486.       end
  487.     end
  488.     object Tools1: TMenuItem
  489.       Caption = 'Tools'
  490.       ShortCut = 0
  491.       object DNSLookup1: TMenuItem
  492.         Caption = 'DNS Lookup'
  493.         HelpContext = 10
  494.         ShortCut = 0
  495.         OnClick = DNSLookup1Click
  496.       end
  497.     end
  498.     object Help1: TMenuItem
  499.       Caption = 'Help'
  500.       ShortCut = 0
  501.       object Contents1: TMenuItem
  502.         Caption = 'Contents'
  503.         ShortCut = 0
  504.         OnClick = Contents1Click
  505.       end
  506.       object N1: TMenuItem
  507.         Caption = '-'
  508.         ShortCut = 0
  509.       end
  510.       object About1: TMenuItem
  511.         Caption = 'About'
  512.         ShortCut = 0
  513.         OnClick = About1Click
  514.       end
  515.     end
  516.   end
  517.   object ServerSocket1: TServerSocket
  518.     Address = '0.0.0.0'
  519.     Port = '21'
  520.     Protocol = 'tcp'
  521.     OnAccept = ServerSocket1Accept
  522.     OnDisconnect = ServerSocket1Disconnect
  523.     OnRead = ServerSocket1Read
  524.     OnWrite = ServerSocket1Write
  525.     Left = 16
  526.     Top = 40
  527.   end
  528.   object ServerSocket2: TServerSocket
  529.     Address = '0.0.0.0'
  530.     Port = '20'
  531.     Protocol = 'tcp'
  532.     MaxConnections = 1
  533.     ClientOptions = [csoRead]
  534.     OnAccept = ServerSocket2Accept
  535.     OnDisconnect = ServerSocket2Disconnect
  536.     OnRead = ServerSocket2Read
  537.     Left = 336
  538.     Top = 40
  539.   end
  540.   object ClientSocket1: TClientSocket
  541.     Address = '0.0.0.0'
  542.     Port = '21'
  543.     Protocol = 'tcp'
  544.     TimeOut = 40
  545.     OnConnect = ClientSocket1Connect
  546.     OnTimeOut = ClientSocket1TimeOut
  547.     OnRead = ClientSocket1Read
  548.     Left = 368
  549.     Top = 40
  550.   end
  551.   object ClientSocket2: TClientSocket
  552.     Address = '0.0.0.0'
  553.     Port = '21'
  554.     Protocol = 'tcp'
  555.     TimeOut = 40
  556.     OnConnect = ClientSocket2Connect
  557.     OnTimeOut = ClientSocket1TimeOut
  558.     OnRead = ClientSocket2Read
  559.     Left = 400
  560.     Top = 40
  561.   end
  562. end
  563.